home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / util / cli / WhatIs.lha / WhatIs / c / TackOn.c < prev    next >
C/C++ Source or Header  |  1994-04-05  |  693b  |  36 lines
  1. /*
  2.  *    TackOn.c - Copyright © 1991 by Devil's child.
  3.  *
  4.  *    Created:    11 Sep 1992  18:00:25
  5.  *    Modified:    26 Nov 1992  21:49:17
  6.  *
  7.  *    Make>> sc <file>.c
  8.  *    Make>> slink <file>.o SC SD ND BATCH NOICONS TO <file>
  9.  */
  10.  
  11.  
  12. long main(void)
  13. {
  14.     struct DosLibrary *DOSBase;
  15.     struct RDArgs *RA;
  16.     char *Argv[] = { NULL, NULL, NULL };
  17.     char Buf[256];
  18.     long rc=20;
  19.  
  20.     if (DOSBase = (struct DosLibrary *)OpenLibrary("dos.library", 37)) {
  21.         if (RA = ReadArgs("Path/A,File/A", (long *)Argv, NULL)) {
  22.             strcpy(Buf, Argv[0]);
  23.             AddPart(Buf, Argv[1], 256);
  24.             Printf("%s\n", Buf);
  25.             FreeArgs(RA);
  26.             rc = 0;
  27.         }
  28.         else
  29.             PrintFault(IoErr(), "TackOn");
  30.         CloseLibrary((struct Library *)DOSBase);
  31.     }
  32.     return rc;
  33. }
  34.  
  35.  
  36.